#!/usr/bin/perl -c

package MooseX::CLI::Option::Usage;

use Smart::Comments '####';  # assert

use Any::Moose '::Role';

requires qw(run show_usage);


use constant::boolean;

use File::Basename ();
use Pod::Usage ();
use Pod::Escapes ();




has 'usage' => (
    is      => 'ro',
    isa     => 'Bool',
    default => FALSE,
    traits  => [ 'Getopt' ],
);


before 'run' => sub {
    my $self = shift;
    return unless $self->usage;

    $self->show_usage;
};


1;
